#!/usr/bin/env perl
#redo 重新执行当前的迭代
#next 跳过当前的迭代 执行下次迭代
use utf8;
use strict;

foreach(1..20){
	##redo jump here
	print "Iteratoion number $_.\n\n";
	print "Please choose: last, next, redo, or none of the above? ";
	chomp(my $input = <STDIN>);
	
	last if $input =~ /last/i;
	next if $input =~ /next/i;
	redo if $input =~ /redo/i;

	print "That wasn't any of the choice... onward!\n\n";
}

print "That's all, folks!\n";
